home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b5.d64 / printer.l < prev    next >
Text File  |  2007-02-28  |  314b  |  18 lines
  1. 9000 //
  2. 9010 FUNC PRINTER CLOSED
  3. 9020 PRINT "OUTPUT TO SCREEN OR PRINTER(S/P)",
  4. 9030 REPEAT 
  5. 9040 CASE KEY$ OF
  6. 9050 WHEN "╙","S"
  7. 9060 PRINT "SCREEN"
  8. 9070 RETURN FALSE
  9. 9080 WHEN "╨","P"
  10. 9090 PRINT "PRINTER"
  11. 9100 RETURN TRUE
  12. 9110 OTHERWISE 
  13. 9120 NULL
  14. 9130 ENDCASE 
  15. 9140 UNTIL TRUE=FALSE
  16. 9150 ENDFUNC PRINTER
  17. 9160 //
  18.